home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 32
/
Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso
/
Aminet
/
biz
/
dopus
/
teletubbies.lha
/
teletubbies.theme
< prev
Wrap
Text File
|
1999-05-11
|
3KB
|
78 lines
/* D5THEME
teletubbies.theme
Directory Opus Magellan II Theme File
*/
parse arg dopus_port apply_flags
if dopus_port='' then
dopus_port='DOPUS.1'
address value dopus_port
if apply_flags='' then
apply_flags='PFBS'
else
apply_flags=upper(apply_flags)
options results
options failat 21
/* Set background pictures */
if index( apply_flags , "B") ~= 0 then do
dopus set background on
dopus set background "'D5THEMES:Teletubbies/Screens/'" desktop center precision exact border off
dopus set background "'D5THEMES:Teletubbies/Patterns/'" lister tile precision image border off
dopus set background "'D5THEMES:teletubbies/requesters/logo.jpg'" req tile precision exact border off
end
/* Set sound events */
if index( apply_flags , "S") ~= 0 then do
dopus set sound "'Bad disk inserted'" "'D5THEMES:Teletubbies/Sounds/uhoh.wav'" 64
dopus set sound "'Close buttons'" "'D5THEMES:Teletubbies/Sounds/byebye.wav'" 64
dopus clear sound "'Close group'"
dopus clear sound "'Close lister'"
dopus set sound "'Disk inserted'" "'D5THEMES:Teletubbies/Sounds/bigslurp.wav'" 64
dopus set sound "'Disk removed'" "'D5THEMES:Teletubbies/Sounds/toasteject.wav'" 64
dopus clear sound "'FTP close connection'"
dopus set sound "'FTP connect fail'" "'D5THEMES:Teletubbies/Sounds/twagain.wav'" 64
dopus clear sound "'FTP connect success'"
dopus set sound "'FTP copy fail'" "'D5THEMES:Teletubbies/Sounds/dagain.wav'" 64
dopus clear sound "'FTP copy success'"
dopus set sound "'FTP error'" "'D5THEMES:Teletubbies/Sounds/uhoh.wav'" 64
dopus set sound "'Hide'" "'D5THEMES:Teletubbies/Sounds/toastflying.wav'" 64
dopus clear sound "'Open buttons'"
dopus clear sound "'Open group'"
dopus clear sound "'Open lister'"
dopus set sound "'Reveal'" "'D5THEMES:Teletubbies/Sounds/dehoh.wav'" 64
dopus set sound "'Shutdown'" "'D5THEMES:Teletubbies/Sounds/timefortubbybyebye.wav'" 64
dopus set sound "'Startup'" "'D5THEMES:Teletubbies/Sounds/teletubbies.wav'" 64
end
/* Set fonts */
if index( apply_flags , "F") ~= 0 then do
dopus set font screen "'FuturaB.font'" 12
dopus set font listers "'XEN.font'" 8
dopus set font iconsd "'Helvetica.font'" 11
dopus set font iconsw "'Helvetica.font'" 9
end
/* Set colour settings*/
if index( apply_flags , "P") ~= 0 then do
dopus set pens icons 2 1 3 1 0 1
dopus set pens files 1 0
dopus set pens dirs 9 0
dopus set pens selfiles 2 1
dopus set pens seldirs 2 9
dopus set pens devices 1 0
dopus set pens assigns 2 0
dopus set pens source 1 15
dopus set pens dest 1 11
dopus set pens gauge 3 11
dopus set pens user 8
dopus set palette 0x959595 0x000000 0xFFFFFF 0x38639E 0x7B7B7B 0xAFAFAF 0xAA907C 0xFFA997 0xEFAF4F 0x7F007F 0xFFFF00 0xCF2F00 0xFF8F00 0xFF00FF 0x9F6F3F 0x00FF9F
end
/* Refresh Opus */
dopus refresh all